home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 December / 64er_Magazin_85-12_1985_Markt__Technik_de.d64 / grafik-80 demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  635b  |  30 lines
  1. 10 (NULL)%
  2. 20 (NULL)15
  3. 30 (NULL)"graphik-80.m"
  4. 40 :
  5. 50 sys (NULL)("1303")
  6. 60 :
  7. 90 (NULL) 6,1
  8. 100 (NULL),320,100,250,99,70,260
  9. 110 (NULL), 145,100, 115,110, 160, 1
  10. 112 (NULL), 145,100, 115,110,  70, 1
  11. 120 (NULL) ,110,45,40,15,1
  12. 130 (NULL),500,40,37,17,,,,45
  13. 140 (NULL),350,100, 160,60, 145,220
  14. 150 (NULL) 1, 300,50 to 300,110 to 400,120 to 300,50
  15. 160 (NULL)0,320,100,250,99,70,260
  16. 170 (NULL),320,100,250,99,70,260
  17. 182 (NULL) ,320,90
  18. 184 (NULL), 130,85, 200,80, 330,10
  19. 186 (NULL), 509,85, 200,80, 330,10
  20. 188 (NULL), 110,0, 100,55, 158,202
  21. 189 (NULL), 490,0,  97,50, 155,190
  22. 190 get q$: if q$<>"" then 200
  23. 192 (NULL)1, 340,196, 160,63, 325,40
  24. 193 for i=1 to 500: next
  25. 194 (NULL)0, 340,196, 160,63, 325,40
  26. 195 for i=1 to 500: next
  27. 196 goto190
  28. 200 (NULL) 5
  29. 220 end
  30.